plot_labels

library(managecrownsdata)
library(readxl)
library(DT)

raw_labels <- read_excel(file.path(system.file(package="managecrownsdata"), 'labeling_file_Mbalmayo.xlsx'))

pivotLabels <- pivot_Labels(raw_labels)

datatable(pivotLabels, 
          class = 'cell-border stripe',
          rownames = FALSE,
          width = '100%', 
          options = list(scrollX = TRUE))
#> Warning in instance$preRenderHook(instance): It seems your data is too big for
#> client-side DataTables. You may consider server-side processing:
#> https://rstudio.github.io/DT/server.html

heatmap_Labels(pivotLabels,
               Specie = 'Alstonia boonei',
               na.rm = TRUE)
#> Warning: Removed 933 rows containing missing values or values outside the scale range
#> (`geom_point()`).